home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / BAMMAP.ARC / BAM TABLES (.txt) < prev   
Encoding:
Commodore BASIC  |  2019-04-13  |  1.0 KB  |  52 lines
  1. 10 ;BAM TABLES
  2. 20 SCREEN LDA #<HDR
  3. 30 STA $FB
  4. 40 LDA #>HDR
  5. 50 STA $FC
  6. 60 LDY #$00
  7. 70 HDRLP LDA ($FB),Y
  8. 80 BEQ HDREND
  9. 90 JSR PRINT
  10. 100 JSR INCFB
  11. 110 JMP HDRLP
  12. 120 HDREND RTS
  13. 130 INCFB INC $FB
  14. 140 BNE INC1
  15. 150 INC $FC
  16. 160 INC1 RTS
  17. 170 HDR .B 147 158
  18. 180 .B "                [194]AM [205]AP
  19. 190 .B 13 13 159
  20. 200 .B "                   PEEKY
  21. 210 .B 13 13 154
  22. 220 .B "                 [205]L [194]UG
  23. 230 .B 13 13 156
  24. 240 .B "           (LEN) LENOPYRIGHT 1987
  25. 250 .B 13 13 129
  26. 260 .B "           [193]LL [210]IGHTS [210]ESERVED
  27. 270 .B 13 13 153
  28. 280 .B " (null)UT DISK IN DRIVE 8 TO VIEW BAM MAP
  29. 290 .B 13 13
  30. 300 .B " [208]RESS RETURN WHEN READY
  31. 310 .B 13 13 30
  32. 320 .B " 1541 FORMATED DISKS ONLY
  33. 330 .B 13 13 0
  34. 340 MW .BYTE "M-W:.BYTE 06 00 02 18 00
  35. 350 MW1 .BYTE "M-W:.BYTE 00 00 01 128
  36. 360 MR .BYTE "M-R:.BYTE 00 00 01
  37. 370 MR1 .BYTE "M-R:.BYTE 04 03 140
  38. 380 BOUND .BYTE 04 36 31 25 18
  39. 390 TOTAL .BYTE 17 18 19 21
  40. 400 A .BYTE 0
  41. 410 X .BYTE 0
  42. 420 Y .BYTE 0
  43. 430 ERR .BYTE 0
  44. 440 TRK .BYTE 0
  45. 450 SEC .BYTE 0
  46. 460 BITBUF .BYTE 0 0
  47. 470 CTR .BYTE 0
  48. 480 CTR1 .BYTE 0
  49. 490 ;*= $7200
  50. 500 BAMBUF .BYTE 0
  51. 510 .END BAM EQ
  52.